home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_80 / cdunit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-01  |  1.3 KB  |  38 lines
  1. unit CDUnit;
  2.  
  3. interface
  4. uses
  5.   WinTypes;
  6.  
  7. function OpenCD(PWindow: HWnd): Boolean;
  8. procedure SetMSFasFormat;
  9. procedure SetTMSFasFormat;
  10. procedure PlayMciCD(StartTrack,EndTrack:Byte);
  11. function GetNumTracks: LongInt;
  12. procedure GetTrackLength(TrackNum: LongInt;var Min, Sec, Frame: Byte);
  13. function StopMci: Boolean;
  14. function CloseMci: Boolean;
  15. function HasDiskInserted: Boolean;
  16. function GetDeviceID: Word;
  17. procedure PlayCDOneTrack(StartTrack:Byte);
  18. function GetMode: LongInt;
  19. function GetCurrentCDTrack: LongInt;
  20. function GetLocation: LongInt;
  21.  
  22. implementation
  23.  
  24. function OpenCD; external 'CDINFO' index 1;
  25. procedure SetMSFasFormat; external 'CDINFO' index 2;
  26. procedure SetTMSFasFormat; external 'CDINFO' index 3;
  27. procedure PlayMciCD; external 'CDINFO' index 4;
  28. function GetNumTracks; external 'CDINFO' index 5;
  29. procedure GetTrackLength; external 'CDINFO' index 6;
  30. function StopMci; external 'CDINFO' index 7;
  31. function CloseMci; external 'CDINFO' index 8;
  32. function HasDiskInserted; external 'CDINFO' index 9;
  33. function GetDeviceID; external 'CDINFO' index 10;
  34. procedure PlayCDOneTrack; external 'CDINFO' index 11;
  35. function GetMode; external 'CDINFO' index 12;
  36. function GetCurrentCDTrack; external 'CDINFO' index 13;
  37. function GetLocation; external 'CDINFO' index 14;
  38. end.